home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Visual Basic.60 / VB98 / WIZARDS / PDWIZARD / SETUP1 / FRMOVWRT.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-06-18  |  4.8 KB  |  152 lines
  1. VERSION 5.00
  2. Begin VB.Form frmOverwrite 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "frmOverwrite"
  5.    ClientHeight    =   3270
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   5130
  9.    Icon            =   "frmOverwrite.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3270
  14.    ScaleWidth      =   5130
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   1  'CenterOwner
  17.    Begin VB.CommandButton cmdNoAll 
  18.       Caption         =   "cmdNoAll"
  19.       Height          =   375
  20.       Left            =   3720
  21.       TabIndex        =   2
  22.       Top             =   2760
  23.       Width           =   1315
  24.    End
  25.    Begin VB.CommandButton cmdNo 
  26.       Caption         =   "cmdNo"
  27.       Height          =   375
  28.       Left            =   2280
  29.       TabIndex        =   1
  30.       Top             =   2760
  31.       Width           =   1315
  32.    End
  33.    Begin VB.CommandButton cmdYes 
  34.       Caption         =   "cmdYes"
  35.       Default         =   -1  'True
  36.       Height          =   375
  37.       Left            =   840
  38.       TabIndex        =   0
  39.       Top             =   2760
  40.       Width           =   1315
  41.    End
  42.    Begin VB.Label lblVersion 
  43.       BackStyle       =   0  'Transparent
  44.       Caption         =   "lblVersion"
  45.       Height          =   255
  46.       Left            =   120
  47.       TabIndex        =   7
  48.       Top             =   1920
  49.       Width           =   4935
  50.    End
  51.    Begin VB.Label lblDescription 
  52.       BackStyle       =   0  'Transparent
  53.       Caption         =   "lblDescription"
  54.       Height          =   255
  55.       Left            =   120
  56.       TabIndex        =   6
  57.       Top             =   1560
  58.       Width           =   4935
  59.    End
  60.    Begin VB.Label lblFileName 
  61.       BackStyle       =   0  'Transparent
  62.       Caption         =   "lblFileName"
  63.       Height          =   615
  64.       Left            =   120
  65.       TabIndex        =   5
  66.       Top             =   840
  67.       Width           =   4935
  68.    End
  69.    Begin VB.Label lblCopy 
  70.       BackStyle       =   0  'Transparent
  71.       Caption         =   "lblCopy"
  72.       Height          =   255
  73.       Left            =   120
  74.       TabIndex        =   4
  75.       Top             =   2280
  76.       Width           =   4935
  77.    End
  78.    Begin VB.Label lblTopInfo 
  79.       BackStyle       =   0  'Transparent
  80.       Caption         =   "lblTopInfo"
  81.       Height          =   495
  82.       Left            =   120
  83.       TabIndex        =   3
  84.       Top             =   120
  85.       Width           =   4935
  86.    End
  87. Attribute VB_Name = "frmOverwrite"
  88. Attribute VB_GlobalNameSpace = False
  89. Attribute VB_Creatable = False
  90. Attribute VB_PredeclaredId = True
  91. Attribute VB_Exposed = False
  92. Option Explicit
  93. 'Local variables to account for filename/description/version
  94. Private msFile As String
  95. Private msDesc As String
  96. Private msVer As String
  97. Private fFormLoaded As Boolean
  98. Private mfYes As Boolean
  99. Private mfNo As Boolean
  100. Private mfNoToAll As Boolean
  101. Private Sub cmdNo_Click()
  102.     mfNo = True
  103.     Unload Me
  104. End Sub
  105. Private Sub cmdNoAll_Click()
  106.     mfNoToAll = True
  107.     Unload Me
  108. End Sub
  109. Private Sub cmdYes_Click()
  110.     mfYes = True
  111.     Unload Me
  112. End Sub
  113. Private Sub Form_Load()
  114.     fFormLoaded = True
  115.     SetFormFont Me
  116.     'Load the strings for this form.
  117.     Me.Caption = ResolveResString(resOVERWRITEFORM)
  118.     lblTopInfo.Caption = ResolveResString(resOVERWRITEINFO)
  119.     lblCopy.Caption = ResolveResString(resOVERWRITEKEEP)
  120.     cmdYes.Caption = ResolveResString(resOVERYES)
  121.     cmdNo.Caption = ResolveResString(resOVERNO)
  122.     cmdNoAll.Caption = ResolveResString(resOVERNOTOALL)
  123.     lblFileName.Caption = ResolveResString(resOVERWRITEFILE, "|1", msFile)
  124.     lblDescription.Caption = ResolveResString(resOVERWRITEDESC, "|1", msDesc)
  125.     lblVersion.Caption = ResolveResString(resOVERWRITEVER, "|1", msVer)
  126.     SetMousePtr vbNormal
  127. End Sub
  128. 'public access to local vars
  129. Public Property Let FileName(sName As String)
  130.     msFile = sName
  131.     If fFormLoaded Then lblFileName.Caption = ResolveResString(resOVERWRITEFILE, "|1", msFile)
  132. End Property
  133. Public Property Let Description(sDesc As String)
  134.     msDesc = sDesc
  135.     If fFormLoaded Then lblDescription.Caption = ResolveResString(resOVERWRITEDESC, "|1", msDesc)
  136. End Property
  137. Public Property Let Version(sVer As String)
  138.     msVer = sVer
  139.     If fFormLoaded Then lblVersion.Caption = ResolveResString(resOVERWRITEVER, "|1", msVer)
  140. End Property
  141. Private Sub Form_Unload(Cancel As Integer)
  142.     SetMousePtr vbHourglass
  143. End Sub
  144. Public Property Get ReturnVal() As Byte
  145.     'Return 0 for yes
  146.     'return 1 for no
  147.     'return 2 for no to all
  148.     If mfYes Then ReturnVal = 0
  149.     If mfNo Then ReturnVal = 1
  150.     If mfNoToAll Then ReturnVal = 2
  151. End Property
  152.